home *** CD-ROM | disk | FTP | other *** search
/ Old Testament Foundatiosn with Philip Yancey / Old Testament Foundatiosn with Philip Yancey - Disc 1.iso / pc / data / m45.dir / 00056.ls < prev    next >
Encoding:
Text File  |  1996-09-06  |  543 b   |  19 lines
  1. on narrateTour
  2.   global gNumberofSlides, gCurrentSlide, gSoundPath, gBackHighMusicVolume, gFadeSteps, gBackLowMusicVolume
  3.   if the volume of sound 1 > gBackLowMusicVolume then
  4.     repeat with x = 1 to gFadeSteps
  5.       set the volume of sound 1 to gBackHighMusicVolume - (x * 10)
  6.       updateStage()
  7.       startTimer()
  8.       repeat while the timer < 10
  9.         nothing()
  10.       end repeat
  11.     end repeat
  12.   end if
  13.   startTimer()
  14.   repeat while the timer < 60
  15.     nothing()
  16.   end repeat
  17.   sound playFile 2, gSoundPath & gCurrentSlide & ".aif"
  18. end
  19.